|
200
|
Can you add text with links in the event
// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION scheduleEvents_AnchorClick(OBJECT schedule, STRING AnchorID, STRING Options)
Message( AnchorID );
Message( Options );
END
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/20/2012");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/20/2012 9:00:00 AM","6/20/2012 11:00:00 AM") , "ExtraLabel", "<aID1234;OPTIONS-1234>click me</a>");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/20/2012 11:00:00 AM","6/20/2012 1:00:00 PM") , "ExtraLabel", "<a1235;OPTIONS-1235>click me</a>");
|
|
199
|
How do you adjust the font type and size of the event (method 2)
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/20/2012");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", "<font mistral;12><%=%256%>");
_ObjectSetProperty( schedule , "DefaultEventLongLabel", _ObjectGetProperty( schedule , "DefaultEventShortLabel"));
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "6/20/2012 9:00:00 AM","6/20/2012 11:00:00 AM");
_ObjectCallMethod( events , "Add", "6/20/2012 11:00:00 AM","6/20/2012 1:00:00 PM");
|
|
198
|
How do you adjust the font type and size of the event (method 1)
OBJECT event,events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/20/2012");
events = _ObjectGetProperty( schedule , "Events");
event = _ObjectCallMethod( events , "Add", "6/20/2012 9:00:00 AM","6/20/2012 11:00:00 AM");
_ObjectSetProperty( event , "ShortLabel", "<font tahoma;12><%=%256%>");
_ObjectSetProperty( event , "LongLabel", _ObjectGetProperty( event , "ShortLabel"));
event = _ObjectCallMethod( events , "Add", "6/20/2012 11:00:00 AM","6/20/2012 1:00:00 PM");
_ObjectSetProperty( event , "ShortLabel", "<fgcolor FF><i><font Mistral;16>your caption</i></font> goes here");
_ObjectSetProperty( event , "LongLabel", _ObjectGetProperty( event , "ShortLabel"));
|
|
197
|
How can I change the shape of the line to be shown when user drag and drop data over the control
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "OLEDropMode", 1);
_ObjectCallMethod( _ObjectGetProperty( schedule , "VisualAppearance") , "Add", 1,"C:\Program Files\Exontrol\ExSchedule\Sample\EBN\dash1.ebn");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(97) = 16777216");
|
|
196
|
How can I highlight the date-time from cursor when the user drag and drop data over the control
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "OLEDropMode", 1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(97) = 1");
|
|
195
|
How can I start drag and drop events
// OLEStartDrag event - Occurs when the OLEDrag method is called.
FUNCTION scheduleEvents_OLEStartDrag(OBJECT schedule, OBJECT Data, INT AllowedEffects)
' Data.SetData("to be carried by drag and drop")
AllowedEffects = 1;
END
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowMoveEvent", 0);
_ObjectSetProperty( schedule , "AllowCreateEvent", 0);
_ObjectSetProperty( schedule , "OLEDropMode", 1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/27/2012");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/27/2012 11:00:00 AM","6/27/2012 12:30:00 PM") , "BodyBackColor", 255);
_ObjectCallMethod( events , "Add", "6/27/2012 11:30:00 AM","6/27/2012 1:30:00 PM");
_ObjectCallMethod( events , "Add", "6/27/2012 8:30:00 AM","6/27/2012 11:45:00 AM");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
194
|
Is it possible to show the today date with a different foreground color
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday" +
"(date(``))-1)/7))");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(14) = BackColor");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(30) = 255");
|
|
193
|
How can I hide the rectangle around the today date
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday" +
"(date(``))-1)/7))");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(14) = BackColor");
|
|
192
|
Is it possible to change the appearance of event with no status using the EBN (office theme)
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( schedule , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAEGg4BeoDg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpAWCYRDGEwCQiNQyRDCYYw+GYCJBmKKYcgONYgQLHcgxD" +
"IsJw/FyERjjeB4egkaZHRZOUZTZQsBxRAZ2Q4EQAKRpOFY9DTPcr0HR8ZQ+BKNAYkSjQAp2VZUVJFUqDKItVzbBIaRgteA7RrOXpjRjYEBxDKcZyxLqVLToiqcRz7Pqb" +
"ZrjeioZoyBI+QjgYAUFDeGSTDQ3bwAA4rEqaaZnVbkOQQJTcNy7EKvYRzGA7CgPHI5QjnVR6BjUJztWyIbp3G4rchqH4RaqAF5ZXg9ez/FIaJbnUaMWhXFqOABwPC0Xo" +
"IGuAJklAeR6H2dAngcEZWnQehzCsd4SmGPJzF2Io1l2fhrgeUpxHOLIAggSRAlIYw6B0ThGFyEJ4CEAwQgSV51BkDYQhCIQJHgGp0gAGBFgCB55nAAC3HCbYEGEOBIHO" +
"BZhggZgagYIRIHYEoFCGMoSCKCJiEiFgjgaYZjjYGIJiKSI2CeBZiAgXgugyYxIgYNINmIaJaDiDpKEiag8g2Y5on4M4GkqGQWEaEZkgkJhKhEZBJC4ToTmSSBqFCFJk" +
"ikNhUhXQpaFiFJlikbhPhcZZpC4GwqmYSYWGaGZmgmJhkhiZopjYboamGKY+HKGhmkmTh2CqZxZl4coeGeKY6HyHxmigbIuiCaBKBaBohmiCgOgKIhokoNoKgaKJqEaC" +
"IimkwwuiUKVyBiJk7m6HIiGGMqbCiSwqhaI4pmqComiOKBqiqNouioKpKj6JQsiqapOiuBoqnqZouiwaxahqOooiuSp+j+BpLEsFpGjGbILCaSoxGwSwuk6M5skgapQj" +
"SbIrDaVI15AWpYjSbYrG6T43G2a1Ui2bhLhaZo5m6C4mmSOJuiuNpujqYYrj6co6G6S5OnYLZvFuXpyj4b4rjqfI/G7aA7kCcBMBcBpBnCDAPAKQhwkwN1wjCbBHAiQp" +
"xCwVI7kVlJHBiRhwlwbzrHGbB/AeBpLlyFI/kmcoMiMJQvHKLIbCeSpyjyEwwkycxMk8LZMDMLIzC+S4LnyVw+kwYYsn8P5KHOPJoj+TnQl8NJSjMPJnEzmR9CMQpUnO" +
"SBvESVZ1g0ZwplWNYtHcXZXDWbYHESWA2C2Fxklkdgdh8aJXmGLYvGaBoME2RxylydxNlcdpcGGPZfHqXp3C2M4fIv3sD3ACMETAnALgJF+PAbgPh7jEHiFsXgNgxjyA" +
"4I8EoyR5CcFeCEY48huDPBqMsYYXBvg9GUPMDg/wiBjHoD0D4PRpD0G4NdcY8hoDZEqNcewHRHhlGyPYTofwujaHuB0Z4bQGh3C6O9ng9xvAJEqA0TIfgXiNHGPkDznx" +
"xD4E8F8To5x8iQGuKEdI+QvBvFSOuKotxYjpGGGYN4vR3j8A+A8Yo8R9jeHeMkeY/QPgsBoGcPonw3jdHuP4D4jxsgNH8F8V47R7D+E+L8eo+A/g/G+PwGYnx1j/D+FA" +
"AwAQfhoASAEL4lADiBAePEeowBcANAGGAOgCQhhDCMAoIIWAWgFHAMQDIghEBuAaEEbAPQChgHIB8QgUAxAQGEDgJgNAwgsBOIQJAbUpCoBoIoCAtAJiFGgMEBQwwqBj" +
"AWCEYAcwigoCgIAQBAQ==");
_ObjectSetProperty( schedule , "OnResizeControl", 768);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/27/2012");
_ObjectSetProperty( schedule , "BodyEventBackColor", 16777216);
_ObjectSetProperty( schedule , "ShowStatusEvent", 0);
_ObjectCallMethod(schedule, "ExecuteTemplate", "DefaultEventPadding(-1) = 3");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(75) = 16777216");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(79) = 16777216");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/27/2012 11:00:00 AM","6/27/2012 12:30:00 PM") , "BodyBackColor", 255);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/27/2012 11:30:00 AM","6/27/2012 1:30:00 PM") , "BodyBackColor", 65280);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
191
|
Is it possible to change the appearance of event's status using the EBN (office theme)
OBJECT appearance,event,events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "OnResizeControl", 768);
appearance = _ObjectGetProperty( schedule , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAEGg4BKYCg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpAWCYRDEMQ0AJCIzDJCIZBkHCPRjASQZUhmHIDTbIEBxf" +
"IMIxLE9IMwxfA8ax1GifI6hGSYDa0HAkABTVQRLL4aSDK6NaYmSL5DhkBokUpGKTpOhgATHMqqIzGURZNquEQ1DBbEI3BaUaw/CKRLAoahqVpqK4tS7MNa3XKkcxzD6e" +
"IypGBKAgmQoJDLRGIxTiYACxPQACzsEAKapKUZPRZVNYQJQlNRDLiEcrgOr4DxqO4aWbZViaDZVawlNy5bhtfaqGrfKYJYLrWCTbh0Tz9KzIJJwHbcKxjKrDczjEoSVw" +
"iAmSgcGmIxaggHBHFmFpoHEJwbg8FpammO5bEUaxbm6ZwDH+YI7EIQQQhKAYkkYdA6hyDI4ngGRIA8AwQgSV51BkDYQhCIQJHeHAkCAGBFgGR55m8CQBkONkYCEEgxGe" +
"BZJHQDgTgWFhFgyf4HmICByBqBRhmiAgmD+YggAIHIJmKSIhGMQJijiNgmgoYwYkoH4NCIWJaC6BhiiiZg2g4CR4moN4LmOWQGEKEAkCibgwg+vwiEeEQjFifhQhMIpZ" +
"DoOoViUKJyFGExlDkGhXhcZIZGIXIWiUSIyGKFRmAkPhkheJYZC4bIYmaaYGGmF5mjmSh1hqJwZmIRYdieGZSH2GxnjmahbhoJx5nqAYhigOYaHOIAohiHhniKKBaDIZ" +
"YjiiOZCgeJImnoEh/iWKJYk6FYmikehyhOJ4pBqCoZiQKY6gKHYIGmeoiiGKoqDqMoliwKh6FKM4riqOQOjeLYqhqYoxi6K5anKL4visWoSkGMYsDsCo5hKLIbCKS4jm" +
"yKp+kyM5qlsRpFiyLB7GKTY2i0Spuk6NItAsfpXjALY7hKXYIk6Wh2CmBphgqOgTjuYhIHachAlAECAg=");
_ObjectCallMethod( appearance , "Add", 2,"CP:1 0 0 1 0");
_ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAEGg4BGoDg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpASLoJDCH4mSTHYxyHIMWwtDiBZgkCA4fiGEYnThKM5Sd" +
"KsXABG6NErSdDAAoKRIVTjAcsVTicAo+R7TcYgLBNAQHKQAHZDQRKZpuFoRRKJNgDLYUEhqGCyYDseyZNj2GZYRDPVqzWAFFzrFSqLilaYpSh+bpfSRSVI3PakQz+LCN" +
"CzwEAKYoaRZDRZgdzUbItMYNBKsMQgO6QAwqNKYQjWVaaFgEYzJMa2LTiHSqQhrGqMQjnV5ZPgVzZKZZGVQ1LBOOZfEJ2XacSqeCyWEqnRryFpWRpfGXiX7EOY7HaePw" +
"DAQQhKAaEwZlCahyDKDBjm4a5JAiG5jgyDYhCKDZukYSAYgsLAzh0RBlBqBAkA4Ox+n+H5AAGDJWDWH5jFmdBQl8Z5yAGAZfngDZ6H9HIiACAhUCgMgPgSYAYA4EoDiE" +
"WBGBiAxhAIXAADITRzGIIA2AyAxYleCJhGiFgnggYg4iIEYImKKIqC6B4iliMg2DYIRolYIoLA2ExmDmDwNhiNg9g+Y44goPYMmGeJeEKD4hBMMJbDaTIYnYTg2mUOBa" +
"FOFZknkVhNhYZZJFIT4ViWWRElmFohmkYhehQJA4ESTg3A2WYuG2GwmmgWhuhyZwJjIcodGaeZmGANpnEMdhkAAJ5ZE4cYaieCZ2HeHhoGoEoIh4IRjESXg3iialFiQa" +
"JaE6Fokg2ahWhiJBpEgRociWaZYHqH4mmiehqiOKBAAqDJUDgTgaiyYYFiqapGiyK4rAqTosiQa14jKKxrGqPo6i8a46laPIwmuGB6juMBrnsEo9jCLB6jKTIwCyawmk" +
"2L4sGsQpDjObIrFAAA2E4U4WlyN4tlsfgWjebhLgaXY4waApqjoLorhSZY7C6a4KBGPBuhuQppjyIZrlKa48m8e5WBENwOHOIyNDAHAOBaQJwgwFwBgWDZziSaZCHAQ4" +
"jAeQoxBwGp/kUMQME8FZFDGLBDBaB4xmwcwXkacQcDMDpDE6HIjCiSYyhyHwuDocpMisL5MHKfIuBGTIylyZgWDgToziyYg7A6TJ8myTwO7KPZRDQLQTEYOp0g0AxKgQ" +
"dBNDcQ5PHSPRHEeVQ1A0XxMlaNRdGsT4Hg4Q44m2WB2D2CxkgWNhNicZpYjaDYvGWW52l2PxqDsdz+meBBOGOIEcAdAPAnEcPIPAbx4C2H+MEd4XAHDxGEPEDgBh6jBD" +
"iDwEI4QFhvEOI8EYyR3i8EMPsZQcguCsBGMwOQMApj5GYEAPg8RtAADoDAFY9xpiAAQAggIA=");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/27/2012");
_ObjectSetProperty( schedule , "StatusEventColor", 33554432);
_ObjectSetProperty( schedule , "BodyEventBackColor", 67108864);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(75) = 16777216");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(79) = 16777216");
_ObjectSetProperty( schedule , "StatusEventSize", 6);
_ObjectCallMethod(schedule, "ExecuteTemplate", "DefaultEventPadding(-1) = 2");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/27/2012 11:00:00 AM","6/27/2012 12:30:00 PM") , "BodyBackColor", 255);
event = _ObjectCallMethod( events , "Add", "6/27/2012 11:30:00 AM","6/27/2012 1:30:00 PM");
_ObjectSetProperty( event , "BodyBackColor", 65280);
_ObjectSetProperty( event , "StatusColor", 8388608);
_ObjectSetProperty( event , "ExtraLabel", "Point");
event = _ObjectCallMethod( events , "Add", "6/27/2012 8:30:00 AM","6/27/2012 11:45:00 AM");
_ObjectSetProperty( event , "StatusColor", 16711935);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
190
|
Does your control support subscript or superscript, in HTML captions
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "BodyEventBackColor", 15790320);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/20/2012");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/20/2012 9:00:00 AM","6/20/2012 11:00:00 AM") , "ExtraLabel", "<sha ;;0>Event <b><font ;6><off 4>1");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/20/2012 11:00:00 AM","6/20/2012 1:00:00 PM") , "ExtraLabel", "<sha ;;0>Event <b><font ;6><off 4>2");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/20/2012 1:00:00 PM","6/20/2012 3:00:00 PM") , "ExtraLabel", "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1");
|
|
189
|
How can I hide the scheduler part of the control, so I can use the calendar panel only
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "OnResizeControl", 257);
|
|
188
|
I see how I can specify a non-working day pattern for weekends, but how can I specify non-working days for holidays
OBJECT calendar,nonworkingtimes,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/28/2012#) = True");
_ObjectCallMethod( calendar , "Select", 3);
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#6/5/2012#) = False");
_ObjectCallMethod( calendar , "Select", 19);
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#6/12/2012#) = False");
_ObjectCallMethod( calendar , "Select", 19);
nonworkingtimes = _ObjectGetProperty( schedule , "NonworkingTimes");
_ObjectCallMethod( nonworkingtimes , "Add", "month(value) = 5","00:00","24:00",-1);
_ObjectCallMethod( nonworkingtimes , "Add", "value in (#6/5/2012#,#6/7/2012#)","00:00","24:00",-1);
|
|
187
|
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "ScrollBars", 15);
_ObjectCallMethod(schedule, "ExecuteTemplate", "ScrollPartVisible(0,65536) = True");
_ObjectCallMethod(schedule, "ExecuteTemplate", "ScrollPartVisible(1,65536) = True");
_ObjectCallMethod(schedule, "ExecuteTemplate", "ScrollPartVisible(2,65536) = True");
_ObjectSetProperty( schedule , "ScrollWidth", 4);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(276) = 15790320");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(260) = 8421504");
_ObjectSetProperty( schedule , "ScrollHeight", 4);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(404) = Background(276)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(388) = Background(260)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(511) = Background(276)");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
186
|
How can I show contiguously the days, in a single row
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/20/2012#) = True");
_ObjectCallMethod( calendar , "Select", 3);
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/27/2012#) = False");
_ObjectCallMethod( calendar , "Select", 19);
_ObjectSetProperty( schedule , "ShowViewCompact", 1);
|
|
185
|
How can I show contiguously the days
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/20/2012#) = True");
_ObjectCallMethod( calendar , "Select", 3);
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/27/2012#) = False");
_ObjectCallMethod( calendar , "Select", 19);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
|
|
184
|
How can I display the time in european format with no usage of AM/PM
OBJECT calendar,events,schedule,timescale;
schedule = ObjectByName("AN1") ;
timescale = _ObjectCallMethod(schedule, "ExecuteTemplate", "TimeScales.Item(0)");
_ObjectSetProperty( timescale , "MajorTimeLabel", "<%hh%>:<%nn%>");
_ObjectSetProperty( timescale , "Width", 32);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/11/2001");
_ObjectSetProperty( calendar , "ShortTimeFormat", "<%h%>:<%nn%>");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "6/11/2001 10:00:00 AM","6/11/2001 1:15:00 PM");
_ObjectCallMethod( events , "Add", "6/11/2001 10:30:00 AM","6/11/2001 2:30:00 PM");
|
|
183
|
Is it possible to zoom the schedule component using a key and scrolling the wheel (not pressing it and moving the mouse)
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "AllowResizeSchedule", 19);
_ObjectSetProperty( schedule , "AllowMoveSchedule", 3);
|
|
182
|
How can I change the format of the date being displayed in the calendar panel
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "HeaderDayLabel", "<sha><%mmmm%></sha> <sha><fgcolor=FF0000><%yyyy%></fgcolor></sha>");
|
|
181
|
How can I display the Year in Thai, Buddhist, Korean format
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "FirstWeekDay", _ObjectGetProperty( calendar , "LocFirstWeekDay"));
_ObjectSetProperty( calendar , "MonthNames", _ObjectGetProperty( calendar , "LocMonthNames"));
_ObjectSetProperty( calendar , "WeekDays", _ObjectGetProperty( calendar , "LocWeekDays"));
_ObjectSetProperty( calendar , "AMPM", _ObjectGetProperty( calendar , "LocAMPM"));
_ObjectSetProperty( calendar , "HeaderDayLabel", "<%mmmm%> <fgcolor=FF0000><%loc_yyyy%>");
_ObjectSetProperty( schedule , "HeaderDayLongLabel", "<|><%dddd%>, <%mmmm%> <%d%>, <fgcolor=FF0000><%loc_yyyy%><|><%dddd%>,<%mmmm%> <%d%>,<fgcolor=FF0000><%loc_yyyy%><|><%dddd%>, <%" +
"mmmm%> <%d%>,`<fgcolor=FF0000><%loc_yy%><|><%dddd%>, <%mmmm%> <%d%><|><%dddd%>, <%m3%> <%d%><|><%dddd%>, <%d%><|><%dddd%><|><%d3" +
"%><|><%d2%><|><%d1%>");
|
|
180
|
May I specify a fixed width for my dates, so user can not resize it
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "OnResizeControl", 3585);
_ObjectSetProperty( schedule , "AllowResizeSchedule", 0);
_ObjectSetProperty( schedule , "AllowMoveSchedule", 3);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "DayViewWidth", 96);
_ObjectSetProperty( schedule , "DayViewHeight", 256);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
179
|
How can I change the format of date being displayed on the header
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "HeaderDayLongLabel", "<|><%dddd%>, <%d%> <%mmmm%>, <%yyyy%><|><%dddd%>, <%d%> <%mmmm%>, <%yyyy%><|><%dddd%>, <%d%> <%mmmm%>,`<%yy%><|><%dddd%>, <%d%>" +
" <%mmmm%><|><%dddd%>, <%d%> <%m3%><|><%dddd%>, <%d%><|><%dddd%><|><%d3%><|><%d2%><|><%d1%>");
|
|
178
|
Is there any notifications for exchanging the panels at runtime
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION scheduleEvents_LayoutEndChanging(OBJECT schedule, INT Operation)
Message( "End exLayoutExchangePanels(16)" );
Message( Operation );
END
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION scheduleEvents_LayoutStartChanging(OBJECT schedule, INT Operation)
Message( "Start exLayoutExchangePanels(16)" );
Message( Operation );
END
OBJECT schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectSetProperty( schedule , "AllowExchangePanels", 1);
_ObjectSetProperty( schedule , "AllowCreateEvent", 0);
|
|
177
|
How can I handle the All-Day events only
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "OnResizeControl", 3072);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/8/2012#) = True");
_ObjectCallMethod( calendar , "Select", 3);
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/15/2012#) = False");
_ObjectCallMethod( calendar , "Select", 19);
_ObjectCallMethod(schedule, "ExecuteTemplate", "TimeScales.Item(0).Visible = False");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "5/8/2012","5/17/2012") , "AllDayEvent", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
176
|
Is it possible to show the All-Day events with EBN including the next/prev signs (2)
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "OnResizeControl", 3072);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/8/2012#) = True");
_ObjectCallMethod( calendar , "Select", 3);
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/15/2012#) = False");
_ObjectCallMethod( calendar , "Select", 19);
_ObjectCallMethod( _ObjectGetProperty( schedule , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAEGg4BbkMQAAYAQGKIYBkAKBQAGaAoDDcOILQiMQzjTBMKgBBCLIxiGK4DhiF4aRSBMIwYAAYhyG4BIRGcYJEDMOQzR4MICSBKkMhlDiPY5mUAJE" +
"iSJg3TDQlzpAoSGoeUhGTZnQaQASXJqKZ6kegoEh4MopTTHQLRUB8EyTDKnaapSJpEDINQlWTZciDKKFUQTNi3KxraKqbjqO47VJKEpSZBMXRhBIYZCueZZXgPBY5YhI" +
"E64BSeASoACDZzoaAwTrOAwUZZFVg2DSOGSBRzQMKrCZKagnFYDVzleYxLjdR47Qy1Ih2GA7QqubYkUTmOjgBaoAYxQaaLx0OS5Rj4NAwZLFXI1eAGd6BDLhLz4XAOHx" +
"HjmAZvGOWoeG8PhBiMGIMGOQxZCQOBpGUG4NncEIdB8MxLhSbpRnMIIIEkQJSGMOgdE4RhfAwJZtAwEIEleeQZA2EIQiECR2ludB8BgRYMAeKYDByB4DG5F4hBgTgWgU" +
"YYIFIGoFmGOBlAmBJMmMQJwggYg4goJIJmIaImCWCpigiLgTgeYQYjYMoKiMOIyDSCIinQDggg2YxonYNYNGOEACDuD4jkifhFg4IQYkCW4RiQSQ2ECEhjiiRhHhOJQ4" +
"jYQYQmSSRmFOFZlCkUhehMJZJC4VYYmWaYGFqF5ljkQhChcZh5jYKoZiYSY6D2HAmgmVhWhqJYJkYeoLieCYyHuHInEmSoAh8Zgplof4SA2OQqgKIZPAmBgciOYYaEIH" +
"YkmQFAEIC");
_ObjectCallMethod( _ObjectGetProperty( schedule , "VisualAppearance") , "Add", 2,"gBFLBCJwBAEHhEJAEGg4BVMIQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxjOK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE" +
"hyKo+CTIAySXJsdw3IyNAIhEB4fgmM4DP7UIAVC78aRABCESgNEwzULUchlDDICJQSQRGzHDSKYDFCCaKgOTI6kgicpJUt6PBtaovKoWOZBcJ3Xjed6vBgeASpQbEL6w" +
"DCbfrjB6KY5eeDXXSkAkB");
_ObjectCallMethod( _ObjectGetProperty( schedule , "VisualAppearance") , "Add", 3,"gBFLBCJwBAEHhEJAEGg4BVUIQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxjOK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE" +
"hyKo+CTIAySXJsZxpHKaAIhEB4fgmRgAP7UNQVFLkEgRBIoDRMM5DVLIZQxSAiUIkERtRQ1CqBRQhGioDoyOgABhFZSUPKlIztO45DwbO56RrlWzONA8FzXdgDYYLQjA" +
"cJwXA7awrAZ8P7iGBZBbtdQCgIA==");
_ObjectSetProperty( schedule , "BodyEventBackColor", 16777216);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(86) = 33554432");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(85) = 50331648");
_ObjectSetProperty( schedule , "HeaderAllDayEventHeight", -14);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "5/8/2012","5/17/2012") , "AllDayEvent", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
175
|
How can I select programatically two weeks
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/8/2012#) = True");
_ObjectCallMethod( calendar , "Select", 3);
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/15/2012#) = False");
_ObjectCallMethod( calendar , "Select", 19);
|
|
174
|
Is it possible to show the All-Day events with EBN including the next/prev signs (1)
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/8/2012#) = True");
_ObjectCallMethod( calendar , "Select", 3);
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/15/2012#) = False");
_ObjectCallMethod( calendar , "Select", 19);
_ObjectCallMethod( _ObjectGetProperty( schedule , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAEGg4BbkMQAAYAQGKIYBkAKBQAGaAoDDcOILQiMQzjTBMKgBBCLIxiGK4DhiF4aRSBMIwYAAYhyG4BIRGcYJEDMOQzR4MICSBKkMhlDiPY5mUAJE" +
"iSJg3TDQlzpAoSGoeUhGTZnQaQASXJqKZ6kegoEh4MopTTHQLRUB8EyTDKnaapSJpEDINQlWTZciDKKFUQTNi3KxraKqbjqO47VJKEpSZBMXRhBIYZCueZZXgPBY5YhI" +
"E64BSeASoACDZzoaAwTrOAwUZZFVg2DSOGSBRzQMKrCZKagnFYDVzleYxLjdR47Qy1Ih2GA7QqubYkUTmOjgBaoAYxQaaLx0OS5Rj4NAwZLFXI1eAGd6BDLhLz4XAOHx" +
"HjmAZvGOWoeG8PhBiMGIMGOQxZCQOBpGUG4NncEIdB8MxLhSbpRnMIIIEkQJSGMOgdE4RhfAwJZtAwEIEleeQZA2EIQiECR2ludB8BgRYMAeKYDByB4DG5F4hBgTgWgU" +
"YYIFIGoFmGOBlAmBJMmMQJwggYg4goJIJmIaImCWCpigiLgTgeYQYjYMoKiMOIyDSCIinQDggg2YxonYNYNGOEACDuD4jkifhFg4IQYkCW4RiQSQ2ECEhjiiRhHhOJQ4" +
"jYQYQmSSRmFOFZlCkUhehMJZJC4VYYmWaYGFqF5ljkQhChcZh5jYKoZiYSY6D2HAmgmVhWhqJYJkYeoLieCYyHuHInEmSoAh8Zgplof4SA2OQqgKIZPAmBgciOYYaEIH" +
"YkmQFAEIC");
_ObjectCallMethod( _ObjectGetProperty( schedule , "VisualAppearance") , "Add", 2,"gBFLBCJwBAEHhEJAEGg4BKMMQAAYAQGKIYBkAKBQAGaAoDDUNgwQwAAxDGKkEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE" +
"hyKo+CTIA4SXJsdxpI4EIRCSL6MgNf5PABTb7zTSgYANF6WRZgWgpTjcMJHTpYFIwHRdQwHLqoagqKZJAqMABQGiYZyHKcwMYgBZXJBEbbMNBtBIUIRtaxZBBiFzgUZY" +
"EBnEbDN4YbapMhyLI2OZBcCOJQ4SCoW4GJ49J7KXgYZiHOLcfjcLovLq5fiOQ5CV5ZXROM6sQyzIKWaCzLL5PjKHInWrPNa3DJtDyXJzUNY9GScG6HBLhWB0czzXIuO4" +
"djqXg4jUOo9j8N4Zk6YoeA+bZKhcV49kyaAllODhPC8d5bi+WJ6H0fhvHcExIHgQB4nuHpOj4Y4zioeQfDePZRGcHI3lGIh9h4JwhkodQckecY9G+WpHDmUAdAeNwCBE" +
"fRcGaIZ/G2D52gWfR0iGRhFg8Y5iBYTQBICA=");
_ObjectCallMethod( _ObjectGetProperty( schedule , "VisualAppearance") , "Add", 3,"gBFLBCJwBAEHhEJAEGg4BgsHQAAYAQGKIYBkAKBQAGaAoDDUNgwQwAAxDGKkEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE" +
"hyKo+CTIA4SXJsZxpI6EQQhEJIfo2Az/VAAFQPfLNKhgAyXZZFWBaCoaEgwUhVMhUVAdGR1BKvKjqKoZcomCRQGiYZyHKcwMYgBZRRBEbbMNBtBIULasWjQYhdYI7WDT" +
"dR4XhmGDkPBtcbbPDcUpBBSLOAjSSOExzILhSrFVyXVzTXL5XDGMg7Wa5foFIDmPRtVbWNydLyvICOJK2eZOExrHrhWrPMZaRpnUyXJ6pcBvfA4Zi7QZlWjPOR2aoNCZ" +
"bjuXpyjsPIahmYJ/keVR0HwPYsnIXQ4mSZ50jwXIfC+HxnmmcZ2HuCAOn+P43lSUZ1neXxeF4L4bmgeoeCcCZEHcXxIAGLBlBuBpphsdgfGaNB0B6WwXjoARrE+dxVkY" +
"ageAgHgUD+XJWm2U4GliNhJhIQBAICA==");
_ObjectSetProperty( schedule , "BodyEventBackColor", 16777216);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(86) = 33554432");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(85) = 50331648");
_ObjectSetProperty( schedule , "HeaderAllDayEventHeight", -20);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "5/8/2012","5/17/2012") , "AllDayEvent", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
173
|
Can I make it zoom in using CTRL-MouseWheel instead of using the middle button
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "AllowResizeSchedule", 19);
|
|
172
|
It is by default not possible, to simply scroll the component with the mouse wheel. How do I make it so
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "AllowMoveSchedule", 3);
|
|
171
|
Can I get and set the width of the time bar
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod(schedule, "ExecuteTemplate", "TimeScales.Item(0).Width = 48");
|
|
170
|
How do I select the current year
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectCallMethod( _ObjectGetProperty( schedule , "Calendar") , "Select", 1);
|
|
169
|
How do I select the current week day
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectCallMethod( _ObjectGetProperty( schedule , "Calendar") , "Select", 4);
|
|
168
|
How do I select the current week
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectCallMethod( _ObjectGetProperty( schedule , "Calendar") , "Select", 3);
|
|
167
|
How can I restore the layout of the panels, when user changes the width and the alignment of the panels
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION scheduleEvents_LayoutEndChanging(OBJECT schedule, INT Operation)
Message( "End Operation " );
Message( Operation );
Message( "Layout " );
Message( _ObjectGetProperty( schedule , "OnResizeControl") );
Message( "PaneWidth(False)" );
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "PaneWidth(False)") );
END
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION scheduleEvents_LayoutStartChanging(OBJECT schedule, INT Operation)
Message( "Start Operation " );
Message( Operation );
Message( "Layout " );
Message( _ObjectGetProperty( schedule , "OnResizeControl") );
Message( "PaneWidth(False)" );
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "PaneWidth(False)") );
END
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION scheduleEvents_MouseMove(OBJECT schedule, INT Button, INT Shift, INT X, INT Y)
Message( "Layout " );
Message( _ObjectGetProperty( schedule , "OnResizeControl") );
Message( "PaneWidth(False)" );
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "PaneWidth(False)") );
END
|
|
166
|
Is it possibly to set the column width of the group/person using the api
OBJECT events,group,groups,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "DisplayGroupingButton", -1);
_ObjectSetProperty( schedule , "ShowGroupingEvents", -1);
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
groups = _ObjectGetProperty( schedule , "Groups");
group = _ObjectCallMethod( groups , "Add", 1,"Group 1");
_ObjectSetProperty( group , "Title", "First");
_ObjectSetProperty( group , "Visible", -1);
group = _ObjectCallMethod( groups , "Add", 2,"Group 2");
_ObjectSetProperty( group , "Title", "Second");
_ObjectSetProperty( group , "Visible", -1);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM") , "GroupID", 1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM") , "GroupID", 2);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Groups.Item(1).Width = 24");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
165
|
When viewing the schedule by week or month and the month ends during the week (July 31, Tuesday -> August 1, Wednesday), the days continue down as a new week 'row'. When there is a change in month, is it possible to still show the full week without that break (compact)
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "5/23/2012");
_ObjectSetProperty( calendar , "Selection", "month(value) in (5,6)");
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
164
|
I want to change the default event tooltip. How can I do that
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "DefaultEventTooltip", "<b>BEGIN:</b> <%=%1%><br><b>END:</b>: <%=%2%><br><b>LENGTH:</b> <%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') " +
": '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + (" +
"(1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')%>");
|
|
163
|
How can I select the entire week for a specified date
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "NonworkingDays", 0);
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "FirstWeekDay", 0);
_ObjectSetProperty( calendar , "Selection", "3/5/2012");
_ObjectSetProperty( calendar , "Selection", "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#3/5/2012#)-1)/7))");
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
162
|
I have noticed that I can drag bars from All-Day header to time-zone and reverse. Is it possible to prevent that
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
_ObjectSetProperty( schedule , "AllowUpdateAllDayFlag", 0);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/23/2012");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "value in (#5/23/2012#,#5/24/2012#,#5/25/2012#)");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM") , "ExtraLabel", "<sha>dentist");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/23/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( schedule , "SelectEventStyle", -1);
_ObjectSetProperty( schedule , "ShowSelectEvent", 0);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
161
|
When an all-day event stretches over multiple days (ex. Monday thru Friday), is it possible to have that display as a continuous bar across those days instead of separate bars on each day
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/23/2012");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "value in (#5/23/2012#,#5/24/2012#,#5/25/2012#)");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM") , "ExtraLabel", "<sha>dentist");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/23/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( schedule , "SelectEventStyle", -1);
_ObjectSetProperty( schedule , "ShowSelectEvent", 0);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
160
|
If I double click to a scheduled event and enter text, how can I read this newly entered text (i.e. what is its corresponding field)
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION scheduleEvents_LayoutEndChanging(OBJECT schedule, INT Operation)
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "EventFromPoint(-1,-1)") );
END
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM") , "ExtraLabel", "editable");
_ObjectSetProperty( schedule , "SelectEventStyle", -1);
_ObjectSetProperty( schedule , "ShowSelectEvent", 0);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
159
|
Is it possible to show the date's header with a shadow
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "HeaderDayLongLabel", "<sha><%dddd%>, <%mmmm%> <%d%>, <%yyyy%>");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "OnSelectDate", 1);
_ObjectSetProperty( schedule , "AllowResizeSchedule", 0);
|
|
158
|
We need to highlight a day for example no booking/disabling for that day, is the timezone good choice (method 3)
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/27/2012");
_ObjectSetProperty( calendar , "Selection", "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)");
_ObjectSetProperty( schedule , "AllowMultiDaysEvent", 0);
_ObjectSetProperty( _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "NonworkingPatterns") , "Add", 1,1) , "Pattern") , "Color", 15790320);
_ObjectCallMethod( _ObjectGetProperty( schedule , "NonworkingTimes") , "Add", "value in (#6/27/2012#)","00:00","24:00",1);
_ObjectSetProperty( schedule , "ShowNonworkingTime", 1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "DisableZoneFormat", "value in (#6/27/2012#)");
|
|
157
|
We need to highlight a day for example no booking for that day, is the timezone good choice (method 2)
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/27/2012");
_ObjectSetProperty( calendar , "Selection", "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)");
_ObjectSetProperty( _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "NonworkingPatterns") , "Add", 1,1) , "Pattern") , "Color", 15790320);
_ObjectCallMethod( _ObjectGetProperty( schedule , "NonworkingTimes") , "Add", "value in (#6/27/2012#)","00:00","24:00",1);
_ObjectSetProperty( schedule , "ShowNonworkingTime", 1);
|
|
156
|
We need to highlight a day for example no booking for that day, is the timezone good choice (method 1)
OBJECT calendar,markzone,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/27/2012");
_ObjectSetProperty( calendar , "Selection", "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)");
markzone = _ObjectCallMethod( _ObjectGetProperty( schedule , "MarkZones") , "Add", "zone","6/27/2012","6/28/2012");
_ObjectSetProperty( markzone , "BackColor", 15790320);
_ObjectSetProperty( _ObjectGetProperty( markzone , "Pattern") , "Type", 0);
_ObjectSetProperty( schedule , "ShowMarkZone", 1);
|
|
155
|
Is is possible to change the background color for a specific day
OBJECT calendar,markzone,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/27/2012");
_ObjectSetProperty( calendar , "Selection", "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)");
markzone = _ObjectCallMethod( _ObjectGetProperty( schedule , "MarkZones") , "Add", "zone","6/27/2012","6/28/2012");
_ObjectSetProperty( markzone , "BackColor", 15790320);
_ObjectSetProperty( _ObjectGetProperty( markzone , "Pattern") , "Type", 0);
_ObjectSetProperty( schedule , "ShowMarkZone", 1);
|
|
154
|
I want to know how can I call a user define form when editing a time slot
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION scheduleEvents_LayoutEndChanging(OBJECT schedule, INT Operation)
Message( "End exScheduleResize(5)" );
Message( Operation );
END
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION scheduleEvents_LayoutStartChanging(OBJECT schedule, INT Operation)
Message( "Start exScheduleResize(5)" );
Message( Operation );
END
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "SingleSel", -1);
_ObjectSetProperty( calendar , "OnSelectDate", 1);
_ObjectSetProperty( schedule , "ClipToSel", -1);
_ObjectSetProperty( schedule , "AllowMoveSchedule", 0);
_ObjectSetProperty( schedule , "AllowMoveGroup", 0);
_ObjectSetProperty( schedule , "AllowResizeSchedule", 1);
_ObjectSetProperty( schedule , "AllowCreateEvent", 0);
|
|
153
|
Can we lock the scroll bars so that it only scrolls within the selected date
OBJECT calendar,events,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/1/2001");
_ObjectSetProperty( calendar , "Selection", "value in (#6/11/2001#,#6/12/2001#)");
_ObjectSetProperty( calendar , "SingleSel", -1);
_ObjectSetProperty( calendar , "OnSelectDate", 1);
_ObjectSetProperty( schedule , "ClipToSel", -1);
_ObjectSetProperty( schedule , "DayViewWidth", -1);
_ObjectSetProperty( schedule , "DayViewHeight", 512);
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "6/11/2001 10:00:00 AM","6/11/2001 1:00:00 PM");
_ObjectCallMethod( events , "Add", "6/12/2001 10:00:00 AM","6/12/2001 1:00:00 PM");
|
|
152
|
Is it possible to specify the dates to be printed to a single page
OBJECT calendar,createobject("exontrol.print"),events,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/1/2001");
_ObjectSetProperty( calendar , "Selection", "value in (#6/11/2001#,#6/12/2001#)");
_ObjectSetProperty( schedule , "DayViewWidth", 116);
_ObjectSetProperty( schedule , "DayViewHeight", 116);
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "6/11/2001 10:00:00 AM","6/11/2001 1:00:00 PM");
_ObjectCallMethod( events , "Add", "6/12/2001 10:00:00 AM","6/12/2001 1:00:00 PM");
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectSetProperty( createobject("exontrol.print") , "Options", "Range=month(value)=6;FitToPage=On");
_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", schedule);
_ObjectCallMethod( createobject("exontrol.print") , "Preview");
|
|
151
|
Is it possible to specify the dates to be printed
OBJECT calendar,createobject("exontrol.print"),events,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/1/2001");
_ObjectSetProperty( calendar , "Selection", "value in (#6/11/2001#,#6/12/2001#)");
_ObjectSetProperty( schedule , "DayViewWidth", 116);
_ObjectSetProperty( schedule , "DayViewHeight", 116);
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "6/11/2001 10:00:00 AM","6/11/2001 1:00:00 PM");
_ObjectCallMethod( events , "Add", "6/12/2001 10:00:00 AM","6/12/2001 1:00:00 PM");
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectSetProperty( createobject("exontrol.print") , "Options", "Range=month(value)=6");
_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", schedule);
_ObjectCallMethod( createobject("exontrol.print") , "Preview");
|
|
150
|
Does your control support Fit-To-Page, while printing
OBJECT calendar,createobject("exontrol.print"),events,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/1/2001");
_ObjectSetProperty( calendar , "Selection", "value in (#6/11/2001#,#6/12/2001#)");
_ObjectSetProperty( schedule , "DayViewWidth", 512);
_ObjectSetProperty( schedule , "DayViewHeight", 512);
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "6/11/2001 10:00:00 AM","6/11/2001 1:00:00 PM");
_ObjectCallMethod( events , "Add", "6/12/2001 10:00:00 AM","6/12/2001 1:00:00 PM");
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectSetProperty( createobject("exontrol.print") , "Options", "FitToPage=On");
_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", schedule);
_ObjectCallMethod( createobject("exontrol.print") , "Preview");
|
|
149
|
Does your control support Print and Print-Preview
OBJECT calendar,createobject("exontrol.print"),events,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/1/2001");
_ObjectSetProperty( calendar , "Selection", "value in (#6/11/2001#,#6/12/2001#)");
_ObjectSetProperty( schedule , "DayViewWidth", 512);
_ObjectSetProperty( schedule , "DayViewHeight", 512);
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "6/11/2001 10:00:00 AM","6/11/2001 1:00:00 PM");
_ObjectCallMethod( events , "Add", "6/12/2001 10:00:00 AM","6/12/2001 1:00:00 PM");
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", schedule);
_ObjectCallMethod( createobject("exontrol.print") , "Preview");
|
|
148
|
How can I specify the height (time slot) of the day to be larger
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "ClipToSel", -1);
_ObjectSetProperty( schedule , "DayViewHeight", 1024);
_ObjectSetProperty( schedule , "DayViewWidth", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "TimeScales.Item(0).MinorTimeRuler = `00:05`");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
147
|
How can I prevent resizing the schedule view, when a new date is selected
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "OnSelectDate", 1);
_ObjectSetProperty( calendar , "Selection", "1/10/2001");
_ObjectSetProperty( calendar , "SingleSel", -1);
_ObjectSetProperty( schedule , "DayViewWidth", 48);
|
|
146
|
How do I get notified once the user moves an event
// UpdateEvent event - Notifies your application once the event changes the starting or ending margins.
FUNCTION scheduleEvents_UpdateEvent(OBJECT schedule, OBJECT Ev)
Message( "UpdateEvent" );
Message( Ev );
END
OBJECT event,events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%256%><br><%=%5%>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", _ObjectGetProperty( schedule , "DefaultEventLongLabel"));
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
events = _ObjectGetProperty( schedule , "Events");
event = _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectSetProperty( event , "Editable", 1);
_ObjectSetProperty( event , "Caption", "your caption");
event = _ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM");
_ObjectSetProperty( event , "Editable", 1);
_ObjectSetProperty( event , "Caption", "other caption");
|
|
145
|
Can You give me an example for the event handler when a user double clicks an appointment
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
FUNCTION scheduleEvents_DblClick(OBJECT schedule, INT Shift, INT X, INT Y)
e = _ObjectCallMethod(schedule, "ExecuteTemplate", "EventFromPoint(-1,-1)");
Message( "Start:" );
Message( e );
Message( "End:" );
Message( e );
END
OBJECT calendar,events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectSetProperty( schedule , "AllowEditEvent", 0);
_ObjectSetProperty( schedule , "AllowToggleSchedule", 0);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/1/2001");
_ObjectSetProperty( calendar , "Selection", "value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "6/11/2001 10:00:00 AM","6/11/2001 1:00:00 PM");
_ObjectCallMethod( events , "Add", "6/12/2001 10:00:00 AM","6/12/2001 1:00:00 PM");
|
|
144
|
Nothing is shown in the schedule view, if I use the Selection property. What am I doing wrong
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/1/2001");
_ObjectSetProperty( calendar , "Selection", "value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)");
|
|
143
|
Is it possible to lock a date/day, so no events can be created, moved, and so on
OBJECT calendar,events,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/1/2001");
_ObjectSetProperty( calendar , "Selection", "value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)");
_ObjectSetProperty( calendar , "DisableZoneFormat", "value = #6/12/2001#");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "6/11/2001 10:00:00 AM","6/11/2001 1:00:00 PM");
_ObjectCallMethod( events , "Add", "6/12/2001 10:00:00 AM","6/12/2001 1:00:00 PM");
|
|
142
|
How can I show the grid lines for minor and major rules in the schedule view
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(54) = 0");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(53) = 12632256");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(50) = 0");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(49) = 12632256");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(56) = 3");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(52) = 3");
|
|
141
|
Is it possible to show the grid lines for minor rulers too in the schedule view
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(56) = 3");
|
|
140
|
How can I change the style and colors to show the grid lines
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(54) = 48");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(53) = 255");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(50) = 3");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(49) = 255");
|
|
139
|
How can I show a solid line rather than dot lines in the schedule view
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(54) = 48");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(53) = 0");
|
|
138
|
Is it possible to hide or change the lines in the schedule view
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(54) = -1");
|
|
137
|
Is there a possiblity to lock an event, so it can't be moved or edited
OBJECT event,events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/27/2012");
events = _ObjectGetProperty( schedule , "Events");
event = _ObjectCallMethod( events , "Add", "6/27/2012 10:00:00 AM","6/27/2012 11:30:00 AM");
_ObjectSetProperty( _ObjectGetProperty( event , "BodyPattern") , "Type", 6);
_ObjectSetProperty( event , "Movable", 0);
_ObjectSetProperty( event , "Resizable", 0);
_ObjectSetProperty( event , "Selectable", 0);
_ObjectSetProperty( event , "Editable", 0);
_ObjectSetProperty( event , "ExtraLabel", "locked");
_ObjectCallMethod( events , "Add", "6/27/2012 1:30:00 PM","6/27/2012 3:30:00 PM");
|
|
136
|
Is it possible to load a PNG file on the control's background ( /com only )
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "Template", "Picture = LoadPicture(`c:\exontrol\images\card.png`)");
|
|
135
|
What is the Event.UserData property used for
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/27/2012");
_ObjectSetProperty( schedule , "DefaultEventTooltip", "Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' :" +
" '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1" +
")*60)) != 0 ? =:1 + ' min(s)' : '')%><b><%=(len(%6) ? `<br>UserData: `+ %6 : ``)%></b>");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/27/2012 11:00:00 AM","6/27/2012 12:30:00 PM") , "UserData", "Any extra data associated with the event");
_ObjectCallMethod( events , "Add", "6/27/2012 11:30:00 AM","6/27/2012 1:30:00 PM");
|
|
134
|
Is there also an event for when a user selects another month in the date-picker control
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION scheduleEvents_LayoutEndChanging(OBJECT schedule, INT Operation)
Message( "End exCalendarDateChange(3)" );
Message( Operation );
Message( "Currently browsing date:" );
Message( _ObjectGetProperty( _ObjectGetProperty( schedule , "Calendar") , "Date") );
END
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION scheduleEvents_LayoutStartChanging(OBJECT schedule, INT Operation)
Message( "Start exCalendarDateChange(3)" );
Message( Operation );
Message( "Previously browsing date:" );
Message( _ObjectGetProperty( _ObjectGetProperty( schedule , "Calendar") , "Date") );
END
|
|
133
|
How can I display the time-zone behind or back (method 2)
OBJECT markzone,pattern,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/27/2012");
markzone = _ObjectCallMethod( _ObjectGetProperty( schedule , "MarkZones") , "Add", "zone","6/27/2012 10:30:00 AM","6/27/2012 1:00:00 PM");
_ObjectSetProperty( markzone , "LongLabel", "zone");
pattern = _ObjectGetProperty( markzone , "Pattern");
_ObjectSetProperty( pattern , "Type", 6);
_ObjectSetProperty( pattern , "Color", 2631720);
_ObjectSetProperty( schedule , "ShowMarkZone", 3);
_ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "6/27/2012 11:00:00 AM","6/27/2012 12:30:00 PM");
|
|
132
|
How can I display the time-zone behind or back (method 1)
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/27/2012");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "MarkZones") , "Add", "zone","6/27/2012 10:30:00 AM","6/27/2012 1:00:00 PM") , "LongLabel", "zone");
_ObjectSetProperty( schedule , "ShowMarkZone", 1);
_ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "6/27/2012 11:00:00 AM","6/27/2012 12:30:00 PM");
|
|
131
|
How can I add a time-zone
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/27/2012");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "MarkZones") , "Add", "zone","6/27/2012 10:30:00 AM","6/27/2012 1:00:00 PM") , "LongLabel", "zone");
|
|
130
|
How can I specify a larger height for the timer, or it is possible to make it bigger
OBJECT appearance,marktime,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
appearance = _ObjectGetProperty( schedule , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAEGg4BC0MQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDGKUEwsACEIrjKCYVgOHYYQjGMZwHIUIhkGoSZKlCIRVDCKYJSzLcZAFIMRwSBiEQTmaa4W" +
"iKIgIQiUBomGahajkMoYZCYKKSCI2S4aDZCIoTPLMagxC5GJCnSJnITJCpdV7XVgWHYVSzDM6yEScZTkFqubZsW5cNwXHZ9azkQpyFRPe6bbrqfJ/X5gN64HgBfrEUo8" +
"cLxHCMKw3DKPYrkOLHS4CQjnSrLcqzDK8ax3GafZwcbqKWbmR5LUjTNR1DS9Hy3Kh8O4sSDbDqeZZpW7bNx2Xa9YQZcS5JBvfA8BwXC6JY7heR4ZIHTT9GbNc7zXQdHx" +
"LiuUZrnUEwvFYIoDjeXZuHePA+A8Hx/kuYhQD2WQqg8T4vlWbJ3nuPg+l+H5BFEASAg==");
_ObjectCallMethod( appearance , "Add", 2,"CP:1 0 -3 0 3");
marktime = _ObjectCallMethod( _ObjectGetProperty( schedule , "MarkTimes") , "Add", "timer1","5/24/2012 11:15:00 AM");
_ObjectSetProperty( marktime , "BackColor", 16777216);
_ObjectSetProperty( marktime , "Line", -1);
_ObjectSetProperty( marktime , "Label", "default height");
_ObjectSetProperty( marktime , "LabelAlign", 34);
marktime = _ObjectCallMethod( _ObjectGetProperty( schedule , "MarkTimes") , "Add", "timer2","5/24/2012 1:15:00 PM");
_ObjectSetProperty( marktime , "BackColor", 33554432);
_ObjectSetProperty( marktime , "Line", -1);
_ObjectSetProperty( marktime , "Label", "larger height");
_ObjectSetProperty( marktime , "LabelAlign", 34);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
129
|
How I know what event was edited when it was edited by a user
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION scheduleEvents_LayoutEndChanging(OBJECT schedule, INT Operation)
Message( "End Operation exScheduleEditEvent(15)" );
Message( Operation );
Message( "Use the global member from LayoutStartChanging, and you got the Event being edited" );
END
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
FUNCTION scheduleEvents_LayoutStartChanging(OBJECT schedule, INT Operation)
Message( "Start Operation exScheduleEditEvent(15)" );
Message( Operation );
Message( "Holds the EventFromPoint to a global member" );
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "EventFromPoint(-1,-1)") );
END
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "SelectEventStyle", 816);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "5/24/2012 9:00:00 AM","5/24/2012 12:00:00 PM");
_ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:45:00 PM");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
128
|
What are timers in your exSchedule component
OBJECT events,marktime,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
marktime = _ObjectCallMethod( _ObjectGetProperty( schedule , "MarkTimes") , "Add", "timer1","5/24/2012 8:35:00 AM");
_ObjectSetProperty( marktime , "Label", "<fgcolor=808080>fixed timer");
_ObjectSetProperty( marktime , "LabelAlign", 1);
_ObjectSetProperty( _ObjectGetProperty( marktime , "Pattern") , "Type", 6);
_ObjectSetProperty( _ObjectGetProperty( marktime , "Pattern") , "Color", 14737632);
marktime = _ObjectCallMethod( _ObjectGetProperty( schedule , "MarkTimes") , "Add", "timer2","5/24/2012 10:51:00 AM");
_ObjectSetProperty( marktime , "Label", "<fgcolor=00FF00>movable timer");
_ObjectSetProperty( marktime , "Movable", -1);
_ObjectSetProperty( marktime , "BodyEventBackColor", 8454016);
_ObjectSetProperty( marktime , "LineColor", 1044480);
_ObjectSetProperty( marktime , "TimeScaleLineColor", 65280);
_ObjectSetProperty( marktime , "TimeScaleLabel", "");
_ObjectSetProperty( marktime , "Line", 780);
_ObjectSetProperty( marktime , "Label", "<bgcolor=FFFFFF><fgcolor=00FF00><b><%hh%>:<%nn%> <%AM/PM%><br><%loc_sdate%>");
_ObjectSetProperty( marktime , "TimeScaleLine", 259);
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "5/24/2012 9:00:00 AM","5/24/2012 12:00:00 PM");
_ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:45:00 PM");
_ObjectCallMethod( events , "Add", "5/24/2012 11:30:00 AM","5/24/2012 2:30:00 PM");
_ObjectCallMethod( events , "Add", "5/24/2012 12:45:00 PM","5/24/2012 3:45:00 PM");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
127
|
How do I get the selected dates in the calendar panel
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION scheduleEvents_LayoutEndChanging(OBJECT schedule, INT Operation)
Message( "Operation: exScheduleSelectionChange(10)" );
Message( Operation );
Message( "Selected Event Count:" );
Message( _ObjectGetProperty( schedule , "SelCount") );
Message( "First Selected Event:" );
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "SelEvent(0)") );
END
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/1/2011");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/1/2011 10:00:00 AM","1/1/2011 11:30:00 AM");
_ObjectCallMethod( events , "Add", "1/1/2011 11:30:00 AM","1/1/2011 1:30:00 PM");
|
|
126
|
How do I get the selected dates in the calendar panel
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION scheduleEvents_LayoutEndChanging(OBJECT schedule, INT Operation)
OBJECT calendar;
Message( "Operation: exCalendarSelectionChange(1)" );
Message( Operation );
calendar = _ObjectGetProperty( schedule , "Calendar");
Message( "Selected Date Count:" );
Message( _ObjectGetProperty( calendar , "SelCount") );
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
Message( "First Selected Date:" );
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelDate(0)") );
END
|
|
125
|
What is the easiest way to display a picture on my event
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
_ObjectCallMethod( _ObjectGetProperty( schedule , "Pictures") , "Add", "pic1","c:\exontrol\images\zipdisk.gif");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "5/24/2012 9:00:00 AM","5/24/2012 2:00:00 PM") , "Pictures", "pic1");
|
|
124
|
How can I programmatically move a specified event
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
_ObjectCallMethod( _ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM") , "MoveBy", "-00:15");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
123
|
How can I edit the event but still display its margins
// AddEvent event - Notifies your application once the a new event is added.
FUNCTION scheduleEvents_AddEvent(OBJECT schedule, OBJECT Ev)
' Ev.Editable = 1
END
OBJECT event,events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%256%><br><%=%5%>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", _ObjectGetProperty( schedule , "DefaultEventLongLabel"));
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
events = _ObjectGetProperty( schedule , "Events");
event = _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectSetProperty( event , "Editable", 1);
_ObjectSetProperty( event , "Caption", "your caption");
event = _ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM");
_ObjectSetProperty( event , "Editable", 1);
_ObjectSetProperty( event , "Caption", "other caption");
|
|
122
|
How can I edit the events
// AddEvent event - Notifies your application once the a new event is added.
FUNCTION scheduleEvents_AddEvent(OBJECT schedule, OBJECT Ev)
' Ev.Editable = 3
END
OBJECT event,events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", "");
_ObjectSetProperty( schedule , "CreateEventLabel", "");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
events = _ObjectGetProperty( schedule , "Events");
event = _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectSetProperty( event , "Editable", 3);
_ObjectSetProperty( event , "LongLabel", "just your label");
event = _ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM");
_ObjectSetProperty( event , "Editable", 3);
_ObjectSetProperty( event , "LongLabel", "just another label");
|
|
121
|
At the moment the scheduler only displays events from 8:00 am to 3:00 pm. How do I extend this time frame
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "DayStartTime", "07:30");
_ObjectSetProperty( schedule , "DayEndTime", "14:30");
|
|
120
|
How does localization work
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "FirstWeekDay", _ObjectGetProperty( calendar , "LocFirstWeekDay"));
_ObjectSetProperty( calendar , "MonthNames", _ObjectGetProperty( calendar , "LocMonthNames"));
_ObjectSetProperty( calendar , "WeekDays", _ObjectGetProperty( calendar , "LocWeekDays"));
_ObjectSetProperty( calendar , "AMPM", _ObjectGetProperty( calendar , "LocAMPM"));
|
|
119
|
Is it possible to limit the calendar to one month only
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "ScrollBars", 0);
_ObjectSetProperty( schedule , "AllowMoveSchedule", 0);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "1/10/2001");
_ObjectSetProperty( calendar , "MinDate", "1/1/2001");
_ObjectSetProperty( calendar , "MaxDate", "1/31/2001");
|
|
118
|
How can I display a distingue text for repetitive events
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%256%><br><%=%264? `repetitive event`:``%>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", _ObjectGetProperty( schedule , "DefaultEventLongLabel"));
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM") , "Repetitive", "weekday(value) = 3");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM");
|
|
117
|
How can I display the event's duration on the body of the event
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%256%><br><%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1" +
" + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' :" +
" '')%>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", _ObjectGetProperty( schedule , "DefaultEventLongLabel"));
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM");
|
|
116
|
The sample shows how the event's body can display automatically the UserData property of the event
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%256%><br><%=%6%>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", _ObjectGetProperty( schedule , "DefaultEventLongLabel"));
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM") , "UserData", "UserData 1");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM") , "UserData", "UserData 2");
|
|
115
|
The sample shows how the event's body can display automatically the Caption property of the event
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%256%><br><%=%5%>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", _ObjectGetProperty( schedule , "DefaultEventLongLabel"));
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM") , "Caption", "Event 1");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM") , "Caption", "Event 2");
|
|
114
|
The sample shows how the event's body can display automatically the group's ID, Caption and Title
OBJECT events,group,groups,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "Group's ID:<%=%4%><br>Group's Caption: <%=%262%><br>Group's Title: <%=%263%><br><%=%256%>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", _ObjectGetProperty( schedule , "DefaultEventLongLabel"));
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "DisplayGroupingButton", -1);
_ObjectSetProperty( schedule , "ShowGroupingEvents", -1);
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
groups = _ObjectGetProperty( schedule , "Groups");
group = _ObjectCallMethod( groups , "Add", 1,"Group 1");
_ObjectSetProperty( group , "Title", "First");
_ObjectSetProperty( group , "Visible", -1);
group = _ObjectCallMethod( groups , "Add", 2,"Group 2");
_ObjectSetProperty( group , "Title", "Second");
_ObjectSetProperty( group , "Visible", -1);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM") , "GroupID", 1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM") , "GroupID", 2);
|
|
113
|
The following sample displays automatically an "All-Day-Event: " prefix for AllDayEvent events
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%3 ? `All-Day-Event: `: ``%><%=%256%>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", _ObjectGetProperty( schedule , "DefaultEventLongLabel"));
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001","1/10/2001") , "AllDayEvent", -1);
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM");
|
|
112
|
How can I use the calendar's LongTimeFormat
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%257%>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", "<%=%257%>");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "1/10/2001");
_ObjectSetProperty( calendar , "LongTimeFormat", "<%hh%>:<%nn%>:<%ss%>");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
_ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "1/10/2001 10:00:00 AM","1/11/2001 1:00:00 PM");
|
|
111
|
How can I use the calendar's ShortTimeFormat. The sample displays the times in 24-hours format
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%256%>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", "<%=%256%>");
_ObjectCallMethod(schedule, "ExecuteTemplate", "TimeScales.Item(0).MajorTimeLabel = `<%hh%>:<%nn%>`");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "1/10/2001");
_ObjectSetProperty( calendar , "ShortTimeFormat", "<%h%>:<%nn%>");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
_ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM");
|
|
110
|
How can I use the calendar's ShortDateFormat
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%256%>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", "<%=%256%>");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "1/10/2001");
_ObjectSetProperty( calendar , "ShortDateFormat", "<%loc_d2%>, <%loc_m2%> <%d%>, <%yy%>");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM") , "AllDayEvent", -1);
|
|
109
|
How can I use the calendar's LongDateFormat
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%257%>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", "<%=%257%>");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "1/10/2001");
_ObjectSetProperty( calendar , "LongDateFormat", "<%loc_dddd%>, <%loc_mmm%> <%d%>, <%yyyy%>");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM") , "AllDayEvent", -1);
|
|
108
|
Is it possible to prevent updating events
OBJECT calendar,events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "AllowUpdateDisableZone", 0);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "Selection", "1/9/2001");
_ObjectSetProperty( calendar , "DisableZoneFormat", "value >= #1/11/2001#");
_ObjectSetProperty( calendar , "MinDate", "1/1/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM");
_ObjectCallMethod( events , "Add", "1/11/2001 10:00:00 AM","1/11/2001 1:00:00 PM");
|
|
107
|
How can I specify that after editing the caption should be on top ( method 2 )
OBJECT calendar,event,events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", _ObjectGetProperty( schedule , "DefaultEventLongLabel"));
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "Selection", "1/1/2001");
events = _ObjectGetProperty( schedule , "Events");
event = _ObjectCallMethod( events , "Add", "1/1/2001 10:00:00 AM","1/1/2001 1:00:00 PM");
_ObjectSetProperty( event , "ExtraLabel", "title");
_ObjectSetProperty( event , "ExtraLabelAlign", 0);
|
|
106
|
How can I specify that after editing the caption should be on top ( method 1 )
OBJECT calendar,event,events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", _ObjectGetProperty( schedule , "DefaultEventLongLabel"));
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "Selection", "1/1/2001");
events = _ObjectGetProperty( schedule , "Events");
event = _ObjectCallMethod( events , "Add", "1/1/2001 10:00:00 AM","1/1/2001 1:00:00 PM");
_ObjectSetProperty( event , "LongLabel", "title");
_ObjectSetProperty( event , "Editable", 3);
|
|
105
|
How can I get ride or hide the of the calendar's grid lines
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "Selection", "1/1/2001");
_ObjectSetProperty( calendar , "ShowGridLines", -1);
|
|
104
|
How can I programmatically select a single date ( method 2 )
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/1/2012");
|
|
103
|
How can I programmatically select a single date ( method 1 )
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "0");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#1/1/2012#) = True");
|
|
102
|
How can I prevent showing the Today button, in the calendar panel
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "OnResizeControl", 256);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "ShowTodayButton", 0);
|
|
101
|
How can I display just the calendar panel, not including the schedule panel
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "OnResizeControl", 256);
|